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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
COMMON, as to the accuracy and functioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date_ 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

C om m ent 

3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to; Your Name 

Company 



Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton, Ohio 45432 Users Group Code 



THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AM 
EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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FIVE-CARD PRINTER CORE DUMP PROGRAMS 



James S. Taylor 
Data Corporation 
7500 Old Xenia Pike 
Dayton, Ohio 45432 
513-426-3111 
User No. 3121 



4 April 1966 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. Title: 

2. Author; Organization: 



Date: 

Users Group Membership Code: 
Direct Inquiries to: 



Phone: 

Description/ Purpose: 



5. 
6. 
7. 



Method: 

Restriction/Range: 
Specifications: 

a. Storage used by program : 

b. Equipment required by 

program: 

Can program be used on 
lesser machine? 

c. Programmed in: 



Five-Card Printer Core Dump Programs 

James S. Taylor 
Data Corporation 
7500 Old Xenia Pike 
Dayton, Ohio 45432 

4 April 1966 

3121 

James S. Taylor 
Data Corporation 
7500 Old Xenia Pike 
Dayton, Ohio 45432 

513-426-3111 

These programs dump the memory of any 
size model I or II 1620 on the 1443 printer. 
Three initial unformatted lines display 120 
positions beginning at 00080, 00200 and 00300. 
Subsequent lines are formatted as follows: 
Starting address, asterisk, ten groups of ten 
digits each followed by an asterisk, and 
asterisks to fill the rest of a 120 character 
line. On machines having 144 print positions 
positions 121-144 always display the same 
data. Only positions 00000-00079 are de- 
stroyed by the program. The program stops 
on a MAR check when the end of core is 
reached. 

Not applicable 

Not applicable 



0-399 
Card 

1443 Printer 
No 

Machine Language 



1 



c 



d. Type of Program 
Additional Remarks: 



Mainline, Complete 

The program is given in two forms. One is 
for machine without indirect addressing or 
for Model n 1620's when it is not known 
whether LA is on or off. The other requires 
IA. Index registers do not affect the program. 
The use of IA allows the flag on the first digit 
of the output line to be cleared, providing a 
more easily interpreted output. 
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NOTICES 

Modifications or revisions to this program, as they occur, will be announced in 
the appropriate Catalog of Programs for IBM Data Processing Systems. When 
such an announcement occurs , users should order a complete new program from 
the Program Information Department. 

This program has been tested by the author on three different 1620 systems, and 
has been found to operate properly, without interference with or from 1710 or 
model II special features. However, neither the author nor Data Corporation 
will assume any liability whatever with respect to the operation of this program 
on any 1620 or 1710 computer, nor for any time or materials lost due to failure 
of the program to operate as described. 



© 



WRITEUP 

The program as delivered consists of four decks. Two are listing decks and two 
are object decks. The listings describe the logic and instruction-by-instruction opera- 
tion of the program. Included in the listing decks at appropriate places are the five 
cards which actually constitute the dump program , so that an object program can be 
prepared directly from the listings, if desired. 

The program operates by moving digits one at a time from the location to be 
dumped to the buffer area 00000-00119. Although the lengths of all fields used as ad- 
dresses must be made 5 digits to avoid trouble on Model II 1620's when index registers 
are on, the program will keep up with a Model H printer on a Model I computer. 

The dump destroys locations 00000 through 00079 when it is loaded. Any data in 
these locations is irretrievably lost unless it is dumped at the typewriter beforehand. 
To restart a job after a dump it is only necessary to restore 00000 to 00079, load in the 
multiplication tables, and enter a branch from the console. 

To operate the program, clear the reader, press reset (or instant stop and re- 
set, if necessary), put the five-card dump routine in the reader, and press load. The 
program takes a couple of seconds to load, so hold the reader start button down until 
all five cards have been read. If it is desired to dump 00012-00079 before loading the 
dump program, press insert, type 35 00012 00100, and R-S or press release and start. 
After the first line is typed, press release and reset and load the dump program. 

The output consists of three lines of dumped output, followed by a double spaced, 
formatted listing of the contents of the memory. The first digit of the first line is from 
core location 00080. The second line begins at 00200, and the third at 00300. Subse- 
quent lines are labeled with the appropriate starting address . The program stops with 
a MAR check when it addresses the first digit beyond the end of core. On 100K machines 
it will loop and begin dumping from 00000, but will not clobber itself. 



DECK LABELING KEY 



Deck No. 1 consists of 61 cards as listed on page 6, Deck No. 2 is a five-card 
dump program for machines without indirect addressing. The cards of this deck are 
included and described in deck No. 1, and appear within the listing on page 6. Similar- 
ly, deck No. 3 is a listing deck and deck No. 4 is an object deck for the dump program 
for machines with indirect addressing. These are listed in a self-explanatory form on 
page 8. 
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00000 


34 


00000 


00971 


00012 


35 


00080 


00900 


00024 


36 


00080 


00500 


00036 


35 


00200 


00900 


00048 


36 


00160 


00500 


00060 


35 


00300 


00900 


00072 


36 


00240 


00 500 



00084 


34 


00000 


00951 


00096 

* 


36 


00320 


0O500 


00108 


15 


00005 


***** 


00120 


26 


00004 


00155 


00132 


16 


00150 


-0006 


00144 


25 




-0400 


00156 


11 


00150 


000-1 



00168 


11 


00155 


000-1 


00180 


43 


00144 


00155 


00192 


26 


00210 


00150 


00204 


25 
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00216 


11 


00150 


000-1 


00228 


43 


00144 


00154 



00240 


34 


00000 


00962 


00252 


35 


00000 


00900 


00264 


47 


00120 


03400 


00276 


34 


00000 


00971 


00288 


49 


00120 


00000 



* MACHINE CODE LISTING OF PRINTER CORE 

* DUMP PROGRAM FOR MACHINES WITHOUT 

* INDIRECT ADDRESSING. THIS INCLUDES 

* MODEL 2 1620, BECAUSE YOU NEVER 

* CAN TELL WHETHER IA WILL BE ON 

* OR OFF WHEN THE TIME COMES TO DUMP. 
* 

* CARD 1. 

34000000097135000800090036000800050035002000090036001600050035003000090036002400 
* 

START WITH A CLEAN PAGE. 
INITIAL PRINT AND READ SECTION. 

THIS SECTION DUMPS CORE LOCATIONS 
00080 THRU 00399 AND REPLACES THEM 
WITH THE FORMATTED DUMP ROUTINE 
AND THE ADDITION TABLE. 

* CARD 2 STARTS AT LOCATION 00080. 

* 

05003400000009513600320005001500005*****2600004001551600150-000625 -04001100 

END OF INITIAL SECTION. THIS IS NOW THE 

DUMP BUFFER AREA. 
MOVE A STAR TO 00005 TO SET OFF THE AODRESS 
MOVE ADDRESS OF THE DUMPED DATA TO ZERO. 
RESET THE DUMP BUFFER POINTER. 
MOVE ONE DIGIT INTO THE BUFFER. 
INCREMENT THE BUFFER POINTER. 
* 

* CARD 3 STARTS AT LOCATION 00160 
* 

150000-11100155000-14300144001552600210001502500000001191100150000-1430014400154 
* 

INCREMENT THE DUMPED CORE POINTER. 
TEST FOR MULTIPLES OF TEN DIGITS. 
SET OFF EACH TEN OIGITS WITH A STAR 

AND INCREMENT THE BUFFER POINTER 
PAST IT. 

TEST FOR MULTIPLES OF 100 DIGITS. 

* 

* CARD 4. 

3400000009623500000009004700120034003400000009714900120000000123456789123456789- 

DUMP A LINE WITH DOUBLE SPACING 
AFTER EACH HUNDRED OIGITS. 
TEST FOR PAGE OVERFLOW. 
RESTORE THE PAPER IF NECESSARY AND 
GO BACK TO START ANOTHER LINE. 

* THE ADD TABLES ARE PUNCHED INTO THE 

* REMAINDER OF THE FOURTH CARD AND 

* THE FIFTH CARD FOR MODEL 1 1620S. 

* 

23456789-J3456789-JK456789-JKL56789-JKLN6789-JKLMN789-JKLMN089-JKLMN0P9-JKLMN0PQ 

* 

* THE PROGRAM TERMINATES WITH A MAR CHECK 

* UPON REACHING THE END OF CORE STORAGE. 

6 

000000000000000-538JOOOOOOOOOOOO 10203040002040608000306090210040802161005001 5102006021 8142007041 1282008061 422300908 17263 
00000000005060708090012141618151811242720242822363520353045403632484455324946536048465462754453627180123456789123456789- 
0123456789123456789-23456789-J3456789-JK456789-JKL56789-JKLM6789-JKLMN789-JKLMN089-JKLMNOP9-JKLMNOPQ00OO00000O00OO0OO000 

-O40O*0OOO000000*00O00000O0*000O00O0OO*00O0000O0O*00OOOOO0OO**-2522-252*2-2522-252*2-2 522-252*2-2522-252*2-2522-252***** 

-0500*2-2522-252*2-2522-252*2-2522-2 52*2-2522-252*2-2522-2 52*2-2522-252*2-2 522-252*2-2522-251*2-2522-252*2-2522-252***** 

-0600*2-2522-252*2-2522-252*2-2522-2 52*2-2 522-252*2-2522-2 52*2-2522-252*2-2522-252*2-2522-252*2-2522-252*2-2 522-821***** 

-0700*4-2522-252*2-2522-252*2-2 522-252*2-2522-2 52*2-2522-252*2-2522-252*2-2522-252*2-2522-252*2-2 522-252*2-2 522-252***** 

-0800*2-2522-252*2-2522-252*2-2522-252*2-2522-252*2-2522-252*2-2522-252*2-2522J178*4J1900-2 52*2-2522 J21 5*8 J25 15-252***** 

-0900*2-2522-252*2 J2846L164*7J2 740J277*6-2522-2 52*2-2522-252*2-2522-252*2-2 522-252*201 1223344*-580071 703*1 50-099815***** 

-1000*0000000000*14000000-0*0000000000*0000000000*00000-0000*000-000000*0000 — 0064*57N6550059*45414348M9*5547006348***** 

-1 1 00*4500455544*0056460043*5659450062*63565941 47*M503000000*0000000000*-*00004401*2020114133*01201R6327*4100000000***** 

-1200*0047012140*1400240005*1011934701*2760120026*0146701311*4901420000*0031004000*4081424601*3240130026*0114100059***** 

-1300*26000N90 12*0126012010* 1141220 11 9*300051 1401*193000-047*0194001300*2601467019*5321014670*1 193710146*P0120 13 100***** 

-1400*0600165871*0006000059*2601141000*51 16000510*00-01 501 19*30-9*-2100*0590000046*0167201200*7100099014*6K43018440***** 

-1 500*0051430160*00 14624301*5760005249*01624R9995*-OOR99500-*OR950331-R*5310180093*147181 1100*060000-543*0184400051***** 

-1600*430 1880000*5231000600*1658310005*2000531 201*141000-146*016000130**160460200**-126000590*1 807490194*0000002600***** 

-1 700*0590 169N14*00059-0000*4601940012*0032000990*0000440192*8000593300*0990000049*01928N1100*OOOOOR9999*99999999-0***** 

-1800*0000000000*00000000*-*2302585093*j000000000*0000110005*900*-52600*05900058 11*01 141000-1*260005101 1*4147019280***** 

-1900*1400160460*2000-22600*0590179471*0005900099*49-4560000*1202000000*0000470197*6014003200*0520000032*0195600000***** 

-2000*7371747970*0000000000*0044455544*0000000000*000000-000*0000000000*0000000000*0000000000*00-0000000*0000000000***** 

-2100*0000000000*000000000-*0000000000*0-00000000*0000000000*0000000000*0590214349*0194003202*1360MK5916*00059-0000***** 

- 2200* 160224200 J*1722022420*21354301 94*0022402800*00002 143 12*02242000-7*7100055022*4K49019280*0000310000*00228L2602***** 

-2300*3 190000R41*00000-0001*2600059023*1944019400*23151J02 31*9000004601*6720120016*01 141000N8*7100099000*59 16000540***** 

-2400*-000330005*5000004601*6000141100*092000-512*00051000NO*2600059000*9121000510*1955330005*2000003300*0510000046***** 

-2 500*0 189201300*490 1660L16*681701070-*3213490257*0000007303*2430254517*01070-3225*1703150-25*8227034580*3457310040***»* 

-2600*00408 11 703* 386000 J J00*00000000 26*0266300059*260005902 6*2 741 000000*0000470267*60 14003200*052R99902 5*02 83302656***** 

-2700*2800091000*5943028100*2656160460*2000-34901*9160000031*000000274P*160000R-00*0224040990*0449460280*8012001500***** 

-2800*OOR0000142*3202656000*0025000920*0970290009*102663460 1*6720120025*0009900091*2200051026*5543029800*0083320008***** 

-2900*4000001601*955000N049*0245000000*7303195029*2934000000*0102390317*5001004802*5249570*42*2600059000*9016019550***** 

-3000*OON1490246*2000003100*0000301N16*OOOOR-0003*1503039000*034200000-*0001220306*3000592600*0590306342*00000-0052***** 

-3100*2300059030*9932000950*000*260005*900099M217*04030-2582*440314R008*6-1703682-*3138N74164*6245000000*0000000*-0***»* 

-3200*4348454352*-*M5674963*000*026356*5700000000*0000000*M2*6857416262*000*170107*0-42592403*3100426147*0386201200***** 
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* MACHINE CODE LISTING OF PRINTER CORE 

* DUMP PROGRAM FOR MACHINES WITH 

* INDIRECT ADDRESSING. IT MAY BE USED 

* ON A MODEL 2 1620 ONLY IF IT IS 

* CERTAIN THAT IA IS ON. 
* 

* CARD 1. 
# 

340000000971 3500*8000900 36000800050035002000090036001600050035003000090036002400 

* 

START WITH A CLEAN PAGE. 
INITIAL PRINT AND READ SECTION. 

THIS SECTION DUMPS CORE LOCATIONS 
00080 THRU 00399 AMD REPLACES THEM 
WITH THE FORMATTED DUMP ROUTINE 
AND THE ADDITION TABLE. 

* CARD 2 STARTS AT LOCATION 00080. 
* 

05003400000009513600320005001500005*****2600004001551600150-000625 -04001100 

END OF INITIAL SECTION. THIS IS NOW THE 

DUMP BUFFER AREA. 
MOVE A STAR TO 00005 TO SET OFF THE ADDRESS 
MOVE ADDRESS OF THE DUMPED DATA TO ZERO. 
RESET THE DUMP BUFFER POINTER. 
MOVE ONE DIGIT INTO THE BUFFER. 
INCREMENT THE BUFFER POINTER. 

CARD 3 STARTS AT LOCATION 00160 



00000 


34 


00000 


00971 


00012 


35 


00080 


00900 


00024 


36 


00080 


00500 


00036 


35 


00200 


00900 


00048 


36 


00160 


00500 


00060 


35 


00300 


00900 


00072 


36 


00240 


00500 



00084 


34 


00000 


00951 


00096 

* 


36 


00320 


00500 


00108 


15 


00005 


***** 


00120 


26 


00004 


00155 


00132 


16 


00150 


-0006 


00144 


25 




-0400 


00156 

* 


11 


00150 


000-1 


* 
* 

150000- 


11100155000-14300 


* 

00168 


11 


00155 


000-1 


00180 


43 


00144 


00155 


00192 


25 


0015- 


00119 


00204 


11 


00150 


000-1 


00216 


43 


00144 


00154 


00228 


33 


00000 


00000 



INCREMENT THE DUMPED CORE POINTER. 
TEST FOR MULTIPLES OF TEN DIGITS. 
SET OFF EACH TEN DIGITS WITH A STAR AND 

INCREMENT THE BUFFER POINTER PAST IT. 
TEST FOR MULTIPLES OF 100 DIGITS. 
INDIRECT ADDRESSING AT 00192 PERMITS 

* CLEARING THE FLAG ON THE ADDRESS. 
* 

* CARD 4. 
* 

3400000009623500000009004700120034003400000009714900120000000123456789123456789- 
* 

00240 34 00000 00962 DUMP A LINE WITH DOUBLE SPACING 

00252 35 00000 00900 AFTER EACH HUNDRED DIGITS. 

00264 47 00120 03400 TEST FOR PAGE OVERFLOW. 

00276 34 00000 00971 RESTORE THE PAPER IF NECESSARY AND 

00288 49 00120 00000 GO BACK TO START ANOTHER LINE. 

* 

* THE ADD TABLES ARE PUNCHED INTO THE 

* REMAINDER OF THE FOURTH CARD AND 

* THE FIFTH CARD FOR MODEL 1 1620S. 
* 

23456789-J3456789-JK456789-JKL56789-JKLM6789-JKLMN789-JKLMNO89-JKLMNOP9-JKLMNOP0 

* THE PROGRAM TERMINATES WITH A MAR CHECK 

* UPON REACHING THE END OF COR€ STORAGE. 
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00*4704182014*00210416RO*416M460420*****2600004001551600150-000625-0082-42701 100150000-1 11001 55000-1430014400 15526002100 
015025-0082001191100150000-14300144001543400000009623500000009004700120034003400000009714900120000000123456789123456789- 
0123456789123456789-23456789-J3456789-JK456789-JKL56789-JKLM6789-JKLMN789-JKLMNO89-JKLMN0P9-JKLMNOP0O00O00000O000OOOOOOO 

00400*0000000000*0000000000*0000000000*0000000000*0000000000**-2522-252*2-2 522-252*2-2522-252*2-2522-252*2-2522-252***** 

00500*2-2522-2 5 2*2-2 522-2 52*2-2 522-2 52*2-2 52 2-2 52*2-2 522 -2 52*2-25 22-252*2-2 522-2 52*2-t 522-2 52*2 -2 522-252*2 -2 522-252***** 

00600*2-2522-252*2-2522-2 52*2-2522-2 52*2-2 522-252*2-2522-252*2-2522-252*2-2 522-252*2-2522-252*2-2522-252*2-2522-821***** 

OO70O*4-2522-252*2-2 522-2 52*2-2 522-252*2-2522-252*2-2522-2 52*2-2522-252*2-2 522-252*2-2522-252*2-2522-252*2-2 522-252***** 

00800*2-2522-252*2-2522-2 52*2-2522-252*2-2 522-252*2-2522-252*2-2522-252*2-2522 J178*4J 1900-2 52*2-2522 J21 5*8 J25 15-25 2***** 

00900*2-2522-252*2 J2846L164*7J2740J277*6-2 522-2 52*2-2522 -252*2-2522-252*2-2522-252*201 1223344*-580071703*1 50-099815***** 

01000*0000000000*14000000-0*0000000000*0000000000*00000-0000*000-000000*0000 — 0064*57N6550059*45414348M9*5 547006348***** 

01 100*4500455544*0056460043*5659450062*63 565941 47*M503000000*0000000000*-*00004401*2020 11 41 33*0 1201R6327*4 100000000***** 

01200*0047012140*1400240005*1011934701*2760120026*0146701311*4901420000*0031004000*4081424601*3240130026*0114100059***** 

01 300*26000N90 12*0 1260120 10*1 141 220 11 9*30005 11401*193000-047*0194001300*2601467019*53210 14670*1 193710146*P012013 100***** 

01400*0600165871*0006000059*2601 141000* 51 16000510*00-01 501 19*30-9*-2100*0590000046*0167201200*7100099014*6K430 18440***** 

01 500*005 1430160*001 4624301*5760005249*01624R9995*-OOR99500-*OR950331-R*5310180093* 147181 11 00*060000-543*0 184400051***** 

01600*430 1880000*5231000600* 1658310005*200053 1201*141 000-146*016000130** 160460200**-126000590* 1807490194*0000002600***** 

01 700*0590 169N 14*000 59-0000*460 19400 12*0032 000990*0000440 192*8000593300*0990000049*0 1928N1100*OOOOOR9999*99999999-0***** 

01800*0000000000*00000000*-*2302 585093* J000000000*0000110005*900*-52600*059000581 1*01 141000-1*260005101 1*41470 19280***** 

01900*1400160460*2000-22600*0590179471*0005900099*49-4560000*1202000000*0000470197*6014003200*0520000032*0195600000***** 

02000*7371747970*0000000000*0044455544*0000000000*000000-000*0000000000*0000000000*0000000000*00-0000000*0000000000***** 
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02 900*400000 160 1*955000N049*0245000000*7303 195029*2 934000000*0102390317*500 1004802*5249570*42*2600059000*90 160 19550***** 

03000*OON 1490246*2000003 100*0000 30 1N16*OOOOR-0003*1503039000*034200000-*0001220306*3000592600*0590306342*00000-0052***** 
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